home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / db2abk.aem < prev    next >
Text File  |  1998-09-25  |  2KB  |  78 lines
  1. /* DB2ABK.aem  Get email address from database and add to address book */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDTOAB = 1
  6. IF (ADDTOAB = 1) THEN DO
  7.     OK = 0
  8.     DO UNTIL OK = 1
  9.         ADDRESS_BOOK LIST GROUP DESCRIPTION LF
  10.         grplist = RESULT
  11.         GETLISTITEM "'"grplist"' 'Select the Group Wanted'"
  12.         grpname = RESULT
  13.         IF (grpname = "") THEN ADDTOAB = 0
  14.         IF (ADDTOAB = 0) THEN LEAVE
  15.         PARSE VAR grpname grpname dflt
  16.         dflt = STRIP(dflt, 'L')
  17.         ADDRESS_BOOK GET grpname TYPE
  18.         addrtype = RESULT
  19.         IF (addrtype = -1) THEN DO
  20.             OKAY2 '"Create It|Enter New Name|Cancel"' "Group Nickname Does Not Exist"
  21.             IF (RESULT = 1) THEN DO
  22.                 GETSTRING '"Enter a Group Description"' "'"dflt"'"
  23.                 grpdesc = RESULT
  24.                 OK = 1
  25.                 OKAY2 "YES|NO" "Do you want to send header only?"
  26.                 IF (RESULT = 0) THEN sndho = ""
  27.                 ELSE sndho = "SHO"
  28.                 END
  29.             ELSE IF (RESULT = 2) THEN OK = 0
  30.             ELSE IF (RESULT = 0) THEN exit
  31.             END
  32.         IF (addrtype = 0) THEN DO
  33.             OKAY2 '"Re-enter Name|Cancel"' "Nickname is already used for an Individual"
  34.             IF (RESULT = 1) THEN OK = 0
  35.             IF (RESULT = 0) THEN exit
  36.             END
  37.         IF (addrtype = 1) THEN OK = 1
  38.         END
  39.     END
  40.  
  41.  
  42. IF ~ SHOW("PORTS","FINALD.1") THEN
  43.     DO
  44.     ADDRESS COMMAND "Run >NIL: FinalData:FinalData"
  45.     ADDRESS COMMAND "WaitForPort FINALD.1"
  46.     IF ~ SHOW("PORTS","FINALD.1") THEN
  47.         DO
  48.         OKAY1 "Final Data Did Not Load"
  49.         EXIT
  50.         END
  51.     END
  52.  
  53. ADDRESS "FINALD.1" ScreenToFront
  54. ADDRESS "FINALD.1" Open
  55. ADDRESS "FINALD.1" ShowAllColumns
  56. ADDRESS "FINALD.1" NUMROWS
  57. ENDROW = RESULT
  58. ADDRESS "FINALD.1" GETCOLUMNPOSITION NAME 'email'
  59. EMCOL = RESULT
  60.  
  61. DO CURROW = 1 TO ENDROW BY 1
  62.     ADDRESS "FINALD.1" CellData EMCOL CURROW
  63.     EMDATA = RESULT
  64.     IF EMDATA ~= "" THEN DO
  65.         IF (ADDTOAB = 1) THEN DO
  66.             IF (addrtype = -1) THEN DO
  67.                 cmd = "ADDRESS_BOOK CREATE GROUP " grpname sndho EMDATA grpdesc
  68.                 addrtype = 1
  69.                 END
  70.             ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname EMDATA
  71.             cmd
  72.             END
  73.         END
  74.     END
  75.  
  76. ADDRESS "FINALD.1" QUIT
  77. AEMAIL TO FRONT
  78.